home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 41
/
Amiga Format CD41 (1999-06)(Future Publishing)(GB)[!][issue 1999-07].iso
/
-seriously_amiga-
/
misc
/
blueinstall
/
install
< prev
next >
Wrap
Text File
|
1999-04-28
|
2KB
|
85 lines
; Installer script For BlueInstall v. 1.0
; by Marek Zvolsky 17.04.99
(complete 0)
(Message
"\n\nWelcome to Install BlueInstall.\n"
; (ALL)
)
(complete 5)
(Set #DEST0
(askdir
(prompt "Where do you want to have BlueInstall? A drawer called BlueIstall will be created")
(help (cat @askdir-help)
)
(default "Work:")
)
)
(complete 12)
(Set #DEST (tackon #DEST0 "BlueInstall"))
(makedir #DEST (infos))
(Set @default-dest #DEST)
(complete 20)
(copyfiles (dest #DEST) (source "BlueInstallPrefs"))
(copyfiles (dest #DEST) (source "BlueInstallPrefs.info"))
(copyfiles (dest #DEST) (source "BlueInstall.guide"))
(copyfiles (dest #DEST) (source "BlueInstall.guide.info"))
(complete 35)
(set #DEST2 (tackon #DEST "bin"))
(makedir #DEST2)
(copyfiles (dest #DEST2) (source "bin/BlueInstall"))
(set #DEST3 (tackon #DEST "Templates"))
(makedir #DEST3)
(copyfiles (dest #DEST3) (source "templates/ExampleTemplate"))
(copyfiles (dest #DEST) (source "Templates.info"))
(complete 65)
(Set #CATALOGS
(askoptions
(Prompt "Catalogs to install")
(help (cat @askoptions-help))
(default 2)
(choices "English (built-in)" "Czech (KOI8)" "Czech (E2)")
)
)
(If (in #CATALOGS 0)
(copyfiles (source "catalogs/english/BlueInstall.catalog") (dest "LOCALE:Catalogs/english/")))
(If (in #CATALOGS 1)
(copyfiles (source "catalogs/ÃeÓtina/BlueInstall.catalog") (dest "LOCALE:Catalogs/ÃeÓtina/")))
(If (in #CATALOGS 2)
(copyfiles (source "catalogs/çeský/BlueInstall.catalog") (dest "LOCALE:Catalogs/çeský/")))
(complete 90)
(If (= (exists "Libs:reqtools.library") 0)
(copylib
(source "libs/reqtools.library")
(dest "libs:")
(confirm)
(prompt "\n\nInstall reqtools.library?\nOnly If You don't have it installed")
(help
(cat @copylib-help)
)
)
)
(complete 100)